home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2000 February / PCW_2_2000.ISO / software / sw / notfall / xsetup.exe / _SETUP.2 / Group3 / XQ MSDOSSYS 2.xpl < prev    next >
Encoding:
XSetup plugin  |  1999-09-25  |  2.7 KB  |  106 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="System\Windows 95/98 Boot Options"
  5. "NAME"="Advanced Options"
  6. "VERSION"="1.32"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable "Boot old MS-DOS version" in menu"
  9. "TEXT 2"="Enable "Safe mode with network" in menu"
  10. "TEXT 3"="Enable logging"
  11. "TEXT 4"="Load system files at top of 640 K"
  12. '"TEXT 5"="Start in "Safe Mode" on next boot"
  13. "DESCRIPTION 1"="Some boot-options for Windows 98/95."
  14. "DESCRIPTION 2"="NOTE: Some of these items may not work on Windows 98 Second Edition."
  15. "AUTHOR"="Xteq Systems"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  18. "COMMENT 2"=" "
  19. "COMMENT 3"="Thanks to David Goodenough (dpg@ix.netcom.com) for the fix"
  20.  
  21.  
  22. 'Declaration of some constants
  23. sF="C:\MSDOS.SYS"
  24. sO="OPTIONS"
  25.  
  26. 'Called when the Plugin is started
  27. Sub Plugin_Initialize
  28.  If GetWinVer=1 or GetWinVer=3 then
  29.   Call FileSetAttribute(sf,"S-")
  30.   Call FileSetAttribute(sf,"R-")
  31.   Call FileSetAttribute(sf,"H-")
  32.  
  33.   'Fix #1
  34.   'i=IniReadValue(sf,so,"MultiBoot")
  35.  
  36.   i=IniReadValue(sf,so,"BootMulti")
  37.   if i=1 then SetUIElement 1,true
  38.  
  39.   i=IniReadValue(sf,so,"Network")
  40.   if i=1 then SetUIElement 2,true
  41.  
  42.   i=IniReadValue(sf,so,"DisableLog") '//Undoc?!?!
  43.   if i=0 or IsEmpty(i) then SetUIElement 3,true
  44.  
  45.   i=IniReadValue(sf,so,"LoadTop")
  46.   if i=1 then SetUIElement 4,true
  47.  
  48.   'i=IniReadValue(sf,so,"BootFailSafe") '//Undoc?!?!!
  49.   'if i=1 then SetUIElement 5,true
  50.  else
  51.   Disable
  52.  end if
  53. End Sub
  54.  
  55. 'Called when the Plugin should validate the Data the user has entered
  56. Sub Plugin_CheckData(ElementIndex)
  57. End Sub
  58.  
  59. 'Called when the Plugin should apply the changes
  60. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  61.  b=GetUIElement(1)
  62.  if b=true then
  63.   Call IniWriteValue(sf,so,"BootMulti",1)
  64.  else
  65.   Call IniWriteValue(sf,so,"BootMulti",0)
  66.  end if
  67.  
  68.  b=GetUIElement(2)
  69.  if b=true then
  70.   Call IniWriteValue(sf,so,"Network",1)
  71.  else
  72.   Call IniWriteValue(sf,so,"Network",0)
  73.  end if
  74.  
  75.  b=GetUIElement(3)
  76.  if b=true then
  77.   Call IniWriteValue(sf,so,"DisableLog",0)
  78.  else
  79.   Call IniWriteValue(sf,so,"DisableLog",1)
  80.  end if
  81.  
  82.  b=GetUIElement(4)
  83.  if b=true then
  84.   Call IniWriteValue(sf,so,"LoadTop",1)
  85.  else
  86.   Call IniWriteValue(sf,so,"LoadTop",0)
  87.  end if
  88.  
  89.  'b=GetUIElement(5)
  90.  'if b=true then
  91.  ' Call IniWriteValue(sf,so,"BootFailSafe",1)
  92.  'else
  93.  ' Call IniWriteValue(sf,so,"BootFailSafe",0)
  94.  'end if
  95.  
  96.  
  97.  Call Restart()
  98. End Sub
  99.  
  100. 'Called when the Plugin is about to be removed from memory
  101. Sub Plugin_Terminate
  102.  Call FileSetAttribute("C:\MSDOS.SYS","S+")
  103.  Call FileSetAttribute("C:\MSDOS.SYS","R+")
  104.  Call FileSetAttribute("C:\MSDOS.SYS","H+")
  105. End Sub
  106.